home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / tab / tab.frm < prev    next >
Text File  |  1993-11-24  |  6KB  |  198 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   1  'Fixed Single
  6.    Caption         =   "Tabbed Dialog Box Example"
  7.    ClientHeight    =   5115
  8.    ClientLeft      =   1995
  9.    ClientTop       =   2130
  10.    ClientWidth     =   7800
  11.    ClipControls    =   0   'False
  12.    Height          =   5520
  13.    Left            =   1935
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   341
  18.    ScaleMode       =   3  'Pixel
  19.    ScaleWidth      =   520
  20.    Top             =   1785
  21.    Width           =   7920
  22.    Begin Frame Frame1 
  23.       BackColor       =   &H00C0C0C0&
  24.       Caption         =   "Option 4"
  25.       ClipControls    =   0   'False
  26.       Height          =   2415
  27.       Index           =   3
  28.       Left            =   3930
  29.       TabIndex        =   4
  30.       Top             =   2520
  31.       Width           =   3735
  32.       Begin Label Label2 
  33.          Alignment       =   2  'Center
  34.          BackStyle       =   0  'Transparent
  35.          Caption         =   "Even more stuff here"
  36.          Height          =   465
  37.          Index           =   3
  38.          Left            =   600
  39.          TabIndex        =   0
  40.          Top             =   630
  41.          Width           =   2115
  42.       End
  43.    End
  44.    Begin Frame Frame1 
  45.       BackColor       =   &H00C0C0C0&
  46.       Caption         =   "Option 3"
  47.       ClipControls    =   0   'False
  48.       Height          =   2415
  49.       Index           =   2
  50.       Left            =   120
  51.       TabIndex        =   3
  52.       Top             =   2520
  53.       Width           =   3735
  54.       Begin Label Label2 
  55.          Alignment       =   2  'Center
  56.          BackStyle       =   0  'Transparent
  57.          Caption         =   "Third set of controls here"
  58.          Height          =   465
  59.          Index           =   1
  60.          Left            =   630
  61.          TabIndex        =   7
  62.          Top             =   840
  63.          Width           =   2115
  64.       End
  65.    End
  66.    Begin Frame Frame1 
  67.       BackColor       =   &H00C0C0C0&
  68.       Caption         =   "Option 2"
  69.       ClipControls    =   0   'False
  70.       Height          =   2415
  71.       Index           =   1
  72.       Left            =   3930
  73.       TabIndex        =   2
  74.       Top             =   90
  75.       Width           =   3735
  76.       Begin Label Label2 
  77.          Alignment       =   2  'Center
  78.          BackStyle       =   0  'Transparent
  79.          Caption         =   "By the way this routine was designed from a screen shot of Word 6 in a magazine!"
  80.          ForeColor       =   &H00FF0000&
  81.          Height          =   705
  82.          Index           =   4
  83.          Left            =   360
  84.          TabIndex        =   9
  85.          Top             =   1410
  86.          Width           =   3045
  87.       End
  88.       Begin Label Label2 
  89.          Alignment       =   2  'Center
  90.          BackStyle       =   0  'Transparent
  91.          Caption         =   "Second set of controls here"
  92.          Height          =   465
  93.          Index           =   0
  94.          Left            =   660
  95.          TabIndex        =   6
  96.          Top             =   750
  97.          Width           =   2115
  98.       End
  99.    End
  100.    Begin Frame Frame1 
  101.       BackColor       =   &H00C0C0C0&
  102.       Caption         =   "Option 1"
  103.       ClipControls    =   0   'False
  104.       Height          =   2415
  105.       Index           =   0
  106.       Left            =   120
  107.       TabIndex        =   1
  108.       Top             =   90
  109.       Width           =   3735
  110.       Begin Label Label2 
  111.          Alignment       =   2  'Center
  112.          BackStyle       =   0  'Transparent
  113.          Caption         =   "Hope this gives you some ideas on how to implement tabbed dialog boxes - Enjoy - Richard Eke"
  114.          ForeColor       =   &H00FF0000&
  115.          Height          =   705
  116.          Index           =   2
  117.          Left            =   270
  118.          TabIndex        =   8
  119.          Top             =   1320
  120.          Width           =   3045
  121.       End
  122.       Begin Label Label1 
  123.          Alignment       =   2  'Center
  124.          BackStyle       =   0  'Transparent
  125.          Caption         =   "Some controls and stuff here"
  126.          Height          =   465
  127.          Left            =   690
  128.          TabIndex        =   5
  129.          Top             =   750
  130.          Width           =   2115
  131.       End
  132.    End
  133. End
  134. Option Explicit
  135. Dim Shared TabItems() As String
  136.  
  137. Sub Form_Load ()
  138.  
  139.     Dim c As Integer
  140.     Width = 4000
  141.     Height = 3200
  142.     Move Screen.Width / 2 - Width / 2, Screen.Height / 2 - Height / 2
  143.  
  144.     '*** Set-up tabs to display
  145.     ReDim TabItems(4)
  146.     TabItems(1) = "Option 1"
  147.     TabItems(2) = "Option 2"
  148.     TabItems(3) = "Option 3"
  149.     TabItems(4) = "Option 4"
  150.  
  151.     '*** Display the tabs - the code that responds to them
  152.     '*** is on Form_MouseUp
  153.     TabDialog Me, TabItems(), 1, 0, 0
  154.  
  155.     '*** Put the frames on top of each other
  156.     For c = 0 To 3
  157.         Frame1(c).Move 8, 24
  158.     Next c
  159.  
  160.     '*** Make the first one on top
  161.     Frame1(0).ZOrder 0
  162.     
  163. '********************************************************
  164.     ' The Sub program TileDialog is only a beginning
  165.     ' This routine could do with a lot of improvement
  166.     ' and made more flexible.
  167.  
  168.     ' As it stands it only works properly with
  169.     ' Form.Autoredraw = True
  170.     ' and borderwidth set to Fixed single
  171.  
  172.     ' If the form needed to be sizeable it would have to
  173.     ' redraw on the paint event (remembering which 'tab'
  174.     ' is active
  175.  
  176.     ' I hope this simple routine is of some use to
  177.     ' someone!
  178.  
  179.     ' Richard Eke
  180.     ' 100031,233
  181.  
  182. '********************************************************
  183. End Sub
  184.  
  185. Sub Form_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
  186.  
  187.     Dim ActiveTab As Integer
  188.     TabDialog Me, TabItems(), ActiveTab, X, Y
  189.  
  190.     Select Case ActiveTab
  191.         Case 0 'Do nothing
  192.         Case 1, 2, 3, 4
  193.             Frame1(ActiveTab - 1).ZOrder 0
  194.     End Select
  195.  
  196. End Sub
  197.  
  198.